object MainForm: TMainForm
  Left = 230
  Top = 141
  Width = 915
  Height = 461
  Caption = #23425#36828#31185#25216'CSM'#25968#25454#21516#27493
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object statBar: TStatusBar
    Left = 0
    Top = 404
    Width = 899
    Height = 19
    Panels = <
      item
        Width = 500
      end>
  end
  object pnlOper: TPanel
    Left = 0
    Top = 0
    Width = 899
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    DesignSize = (
      899
      41)
    object btnSyncVisitOld: TBitBtn
      Left = 688
      Top = 8
      Width = 97
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #23548#20837#22238#35775#35760#24405
      TabOrder = 0
      OnClick = btnSyncVisitOldClick
    end
    object btnSyncUserOld: TBitBtn
      Left = 608
      Top = 8
      Width = 67
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #23548#20837#29992#25143
      TabOrder = 1
      OnClick = btnSyncUserOldClick
    end
    object btnSyncTpl: TBitBtn
      Left = 796
      Top = 8
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #23548#20837#27169#26495
      TabOrder = 2
      OnClick = btnSyncTplClick
    end
    object btnTestEmr: TBitBtn
      Left = 508
      Top = 8
      Width = 89
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #27979#35797#30005#23376#30149#21382
      TabOrder = 3
      OnClick = btnTestEmrClick
    end
  end
  object btnDoctor: TButton
    Left = 136
    Top = 8
    Width = 105
    Height = 25
    Caption = #21516#27493#21307#29983#36164#26009
    TabOrder = 2
    OnClick = btnDoctorClick
  end
  object btnZhuyuan: TButton
    Left = 256
    Top = 8
    Width = 105
    Height = 25
    Caption = #21516#27493#20303#38498#36164#26009
    TabOrder = 3
    OnClick = btnZhuyuanClick
  end
  object btnDep: TButton
    Left = 16
    Top = 8
    Width = 105
    Height = 25
    Caption = #21516#27493#31185#23460#36164#26009
    TabOrder = 4
    OnClick = btnDepClick
  end
  object pnlCenter: TPanel
    Left = 0
    Top = 41
    Width = 899
    Height = 363
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 5
    object dbgrdData: TDBGrid
      Left = 0
      Top = 0
      Width = 899
      Height = 363
      Align = alClient
      DataSource = dsData
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object qryBaglPatientVisit: TADOQuery
    Connection = CsmDataModule.conBagl_Java
    Parameters = <
      item
        Name = 'CYSTARTTIME'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'CYENDTIME'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT PV.*  FROM TPATIENTVISIT PV WHERE PV.FCYDATE >=:CYSTARTTI' +
        'ME AND PV.FCYDATE<:CYENDTIME')
    Left = 552
    Top = 48
  end
  object qryBaglOperation: TADOQuery
    Connection = CsmDataModule.conBagl_Java
    Parameters = <
      item
        Name = 'FPRN'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'FTIMES'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM TOPERATION WHERE FPRN=:FPRN AND FTIMES=:FTIMES')
    Left = 552
    Top = 96
  end
  object qryBaglDep: TADOQuery
    Connection = CsmDataModule.conBagl_Java
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM TWORKROOM')
    Left = 552
    Top = 144
  end
  object qryBaglDoctor: TADOQuery
    Connection = CsmDataModule.conBagl_Java
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM TDOCTOR')
    Left = 552
    Top = 184
  end
  object orqryPatient: TOraQuery
    Session = CsmDataModule.orsnCsm
    SQL.Strings = (
      'SELECT * FROM PATIENT')
    Left = 616
    Top = 48
  end
  object orqryZhuyuan: TOraQuery
    Session = CsmDataModule.orsnCsm
    SQL.Strings = (
      
        'SELECT * FROM ZHUYUAN WHERE CY_DATE >=:CYSTARTTIME AND CY_DATE<:' +
        'CYENDTIME')
    Left = 616
    Top = 96
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'CYSTARTTIME'
      end
      item
        DataType = ftUnknown
        Name = 'CYENDTIME'
      end>
  end
  object orqryOperation: TOraQuery
    Session = CsmDataModule.orsnCsm
    SQL.Strings = (
      
        'SELECT * FROM OPERATION WHERE ZY_NO=:ZY_NO AND ZY_TIMES=:ZY_TIME' +
        'S')
    Left = 616
    Top = 144
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ZY_NO'
      end
      item
        DataType = ftUnknown
        Name = 'ZY_TIMES'
      end>
  end
  object orqryDep: TOraQuery
    Session = CsmDataModule.orsnCsm
    SQL.Strings = (
      'SELECT * FROM DEP')
    Left = 664
    Top = 48
  end
  object orqryDoctor: TOraQuery
    Session = CsmDataModule.orsnCsm
    SQL.Strings = (
      'SELECT * FROM DOCTOR')
    Left = 664
    Top = 96
  end
  object dsData: TDataSource
    DataSet = orqryEmr
    Left = 456
    Top = 73
  end
  object orqrySequence: TOraQuery
    Session = CsmDataModule.orsnCsm
    Left = 616
    Top = 185
  end
  object orqryVisit: TOraQuery
    Session = CsmDataModule.orsnCsm
    SQL.Strings = (
      
        'select V.* from visit v left join zhuyuan zy on v.biz_code=zy.bi' +
        'z_code where zy.cy_date >=:STARTCYTIME and zy.cy_date<:ENDCYTIME')
    Left = 616
    Top = 249
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'STARTCYTIME'
      end
      item
        DataType = ftUnknown
        Name = 'ENDCYTIME'
      end>
  end
  object qryOldRepayVisit: TADOQuery
    Connection = CsmDataModule.conCsmOld
    Parameters = <
      item
        Name = 'STARTCYTIME'
        Size = -1
        Value = Null
      end
      item
        Name = 'ENDCYTIME'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      
        'select rv.* from repayvisit rv left join inpatientbase ipb on rv' +
        '.pid=ipb.inno and rv.intimes=ipb.times where ipb.dateofout>=:STA' +
        'RTCYTIME and ipb.dateofout<:ENDCYTIME')
    Left = 552
    Top = 249
  end
  object qryOldUser: TADOQuery
    Connection = CsmDataModule.conCsmOld
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM SYSLOGIN')
    Left = 552
    Top = 289
  end
  object orqrySysUser: TOraQuery
    Session = CsmDataModule.orsnCsm
    SQL.Strings = (
      'SELECT *  FROM SYSUSER')
    Left = 616
    Top = 289
  end
  object orqryExec: TOraQuery
    Session = CsmDataModule.orsnCsm
    Left = 664
    Top = 289
  end
  object qryOldTpl: TADOQuery
    Connection = CsmDataModule.conCsmOld
    Parameters = <>
    Left = 552
    Top = 329
  end
  object orqryTpl: TOraQuery
    Session = CsmDataModule.orsnCsm
    Left = 616
    Top = 329
  end
  object orqryUpd: TOraQuery
    Session = CsmDataModule.orsnCsm
    Left = 744
    Top = 49
  end
  object orqryEmr: TOraQuery
    Session = CsmDataModule.orsnCsm
    SQL.Strings = (
      
        'select Z.*, T.TOPIC, T.CREATE_DATETIME, T.EMR_TEXT from emr_text' +
        'data t RIGHT JOIN ZHUYUAN Z ON T.PATIENT_ID=Z.ZY_NO||'#39'_'#39'||Z.ZY_T' +
        'IMES WHERE Z.CY_DATE >=:CYSTARTTIME AND Z.CY_DATE<:CYENDTIME')
    Left = 800
    Top = 169
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'CYSTARTTIME'
      end
      item
        DataType = ftUnknown
        Name = 'CYENDTIME'
      end>
  end
  object orqryTpEmr: TOraQuery
    Left = 760
    Top = 169
  end
end
